Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / atileg1a / frmtextu.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-09-29 | 40.2 KB | 1,256 lines

VERSION 5.00 Begin VB.Form frmTextures Caption = "Textures" ClientHeight = 5445 ClientLeft = 60 ClientTop = 345 ClientWidth = 4335 LinkTopic = "Form1" ScaleHeight = 363 ScaleMode = 3 'Pixel ScaleWidth = 289 StartUpPosition = 3 'Windows Default Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 63 Left = 30 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 71 Top = 4410 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 71 Left = 30 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 70 Top = 4920 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 70 Left = 570 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 69 Top = 4920 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 69 Left = 1110 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 68 Top = 4920 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 68 Left = 1650 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 67 Top = 4920 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 67 Left = 2190 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 66 Top = 4920 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 66 Left = 2730 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 65 Top = 4920 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 65 Left = 3270 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 64 Top = 4920 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 64 Left = 3810 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 63 Top = 4920 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 62 Left = 570 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 62 Top = 4410 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 61 Left = 1110 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 61 Top = 4410 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 60 Left = 1650 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 60 Top = 4410 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 59 Left = 2190 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 59 Top = 4410 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 58 Left = 2730 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 58 Top = 4410 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 57 Left = 3270 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 57 Top = 4410 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 56 Left = 3810 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 56 Top = 4410 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 55 Left = 3810 Picture = "frmTextures.frx":0000 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 55 Top = 3870 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 54 Left = 3270 Picture = "frmTextures.frx":0C42 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 54 Top = 3870 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H00FF0000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 53 Left = 2730 Picture = "frmTextures.frx":1884 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 53 Top = 3870 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 52 Left = 2190 Picture = "frmTextures.frx":20C6 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 52 Top = 3870 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 51 Left = 1650 Picture = "frmTextures.frx":2D08 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 51 Top = 3870 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 50 Left = 1110 Picture = "frmTextures.frx":394A ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 50 Top = 3870 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 49 Left = 570 Picture = "frmTextures.frx":458C ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 49 Top = 3870 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 48 Left = 30 Picture = "frmTextures.frx":51CE ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 48 Top = 3870 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 47 Left = 3810 Picture = "frmTextures.frx":5E10 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 47 Top = 3330 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 46 Left = 3270 Picture = "frmTextures.frx":6A52 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 46 Top = 3330 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 45 Left = 2730 Picture = "frmTextures.frx":7694 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 45 Top = 3330 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 44 Left = 2190 Picture = "frmTextures.frx":82D6 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 44 Top = 3330 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 43 Left = 1650 Picture = "frmTextures.frx":8F18 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 43 Top = 3330 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 42 Left = 1110 Picture = "frmTextures.frx":9B5A ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 42 Top = 3330 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 41 Left = 570 Picture = "frmTextures.frx":A79C ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 41 Top = 3330 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 40 Left = 30 Picture = "frmTextures.frx":B3DE ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 40 Top = 3330 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 39 Left = 3810 Picture = "frmTextures.frx":C020 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 39 Top = 2790 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 38 Left = 3270 Picture = "frmTextures.frx":CC62 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 38 Top = 2790 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 37 Left = 2730 Picture = "frmTextures.frx":D8A4 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 37 Top = 2790 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 36 Left = 2190 Picture = "frmTextures.frx":E4E6 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 36 Top = 2790 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 35 Left = 1650 Picture = "frmTextures.frx":F128 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 35 Top = 2790 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 34 Left = 1110 Picture = "frmTextures.frx":FD6A ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 34 Top = 2790 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 33 Left = 570 Picture = "frmTextures.frx":109AC ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 33 Top = 2790 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 32 Left = 30 Picture = "frmTextures.frx":115EE ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 32 Top = 2790 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 31 Left = 3810 Picture = "frmTextures.frx":12230 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 31 Top = 2250 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 30 Left = 3270 Picture = "frmTextures.frx":12E72 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 30 Top = 2250 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 29 Left = 2730 Picture = "frmTextures.frx":13AB4 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 29 Top = 2250 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 28 Left = 2190 Picture = "frmTextures.frx":146F6 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 28 Top = 2250 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 27 Left = 1650 Picture = "frmTextures.frx":15338 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 27 Top = 2250 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 26 Left = 1110 Picture = "frmTextures.frx":15F7A ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 26 Top = 2250 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 25 Left = 570 Picture = "frmTextures.frx":16BBC ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 25 Top = 2250 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 24 Left = 30 Picture = "frmTextures.frx":177FE ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 24 Top = 2250 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 23 Left = 3810 Picture = "frmTextures.frx":18440 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 23 Top = 1710 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 22 Left = 3270 Picture = "frmTextures.frx":19082 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 22 Top = 1710 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 21 Left = 2730 Picture = "frmTextures.frx":19CC4 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 21 Top = 1710 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 20 Left = 2190 Picture = "frmTextures.frx":1A906 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 20 Top = 1710 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 19 Left = 1650 Picture = "frmTextures.frx":1B548 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 19 Top = 1710 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 18 Left = 1110 Picture = "frmTextures.frx":1C18A ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 18 Top = 1710 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 17 Left = 570 Picture = "frmTextures.frx":1CDCC ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 17 Top = 1710 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 16 Left = 30 Picture = "frmTextures.frx":1DA0E ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 16 Top = 1710 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 15 Left = 3810 Picture = "frmTextures.frx":1E650 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 15 Top = 1170 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 14 Left = 3270 Picture = "frmTextures.frx":1F292 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 14 Top = 1170 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 13 Left = 2730 Picture = "frmTextures.frx":1FED4 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 13 Top = 1170 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 12 Left = 2190 Picture = "frmTextures.frx":20B16 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 12 Top = 1170 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 11 Left = 1650 Picture = "frmTextures.frx":21758 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 11 Top = 1170 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 10 Left = 1110 Picture = "frmTextures.frx":2239A ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 10 Top = 1170 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 9 Left = 570 Picture = "frmTextures.frx":22FDC ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 9 Top = 1170 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 8 Left = 30 Picture = "frmTextures.frx":23C1E ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 8 Top = 1170 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 7 Left = 3810 Picture = "frmTextures.frx":24860 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 7 Top = 600 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 6 Left = 3270 Picture = "frmTextures.frx":254A2 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 6 Top = 600 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 5 Left = 2730 Picture = "frmTextures.frx":260E4 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 5 Top = 600 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 4 Left = 2190 Picture = "frmTextures.frx":26D26 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 4 Top = 600 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 3 Left = 1650 Picture = "frmTextures.frx":27968 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 3 Top = 600 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 2 Left = 1110 Picture = "frmTextures.frx":285AA ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 2 Top = 600 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 1 Left = 570 Picture = "frmTextures.frx":291EC ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 1 Top = 600 Width = 480 End Begin VB.PictureBox picTile Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 480 Index = 0 Left = 32 Picture = "frmTextures.frx":29E2E ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 0 Top = 600 Width = 480 End Begin VB.Label Label1 AutoSize = -1 'True Caption = "helping, please email: steve@bud.cc.swin.edu.au." Height = 195 Index = 1 Left = 360 TabIndex = 73 Top = 300 Width = 3555 End Begin VB.Label Label1 AutoSize = -1 'True Caption = "I know the images need a lot of work, if your interested in" Height = 195 Index = 0 Left = 60 TabIndex = 72 Top = 60 Width = 4020 End Attribute VB_Name = "frmTextures" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False ' This is the form that I use to store the images, ' It's easier to store them here, as they are compiled into the exe ' Saving having problems with bmp's in directorys. Private Sub picTile_Click(Index As Integer) frmTileTest.imgZoom.Picture = picTile(Index).Picture frmTileTest.imgZoom.Tag = Index End Sub